74.208.221.89/74.208.221.89.zip/74.208.221.89/create-account1 - Copy.aspx

Text File | 2015-03-14 | 806b | 18 lines

<%@ Page Language="VB" Debug="true" %>
<script runat="server">
    Dim mycon As New conValue()
    Dim username, useremail, permissions As String
    Dim userid As Integer
    Dim str1 As String
    Dim str2() As String
    Dim str4() As String
    Dim image(), image1, price(), mrp() As String
    Sub page_load()
        Dim userid As Integer
        mycon.con("Select IsNull(max(userid),0) from w5_shop_profiles", 1, 2)
        userid = mycon.Temp1 + 1
        mycon.con("Insert into w5_shop_profiles (clname,email,mobile,password,userid) values ('" & Request.Form("name") & "','" & Request.Form("email") & "','" & Request.Form("mobile") & "','" & Request.Form("password") & "','" & userid & "')", 1, 3)
        Response.Redirect("index.aspx?msg=User Created")
    End Sub
</script>